(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     36271,        800]
NotebookOptionsPosition[     34607,        766]
NotebookOutlinePosition[     34952,        781]
CellTagsIndexPosition[     34909,        778]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"CreateGalleryThumbnail", "[", 
   RowBox[{"name_", ",", "desc_"}], "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", 
           RowBox[{
            RowBox[{"RandomColor", "[", "]"}], ",", ".5"}], "]"}], ",", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"i", ",", "j"}], "}"}], ",", "0.45"}], "]"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", 
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"White", ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"name", ",", 
            RowBox[{"35", "-", 
             RowBox[{"StringLength", "[", "name", "]"}]}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"White", ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"StringJoin", "[", 
             RowBox[{"StringRiffle", "[", 
              RowBox[{
               RowBox[{"StringPartition", "[", 
                RowBox[{"desc", ",", 
                 RowBox[{"UpTo", "[", "20", "]"}]}], "]"}], ",", 
               "\"\<\\n\>\""}], "]"}], "]"}], ",", "12", ",", 
            RowBox[{"Background", "\[Rule]", 
             RowBox[{"RGBColor", "[", 
              RowBox[{"0.5", ",", "0.5", ",", "0.5", ",", "0.5"}], "]"}]}]}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Background", "\[Rule]", "Black"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7530162119628625`*^9, 3.753016274536873*^9}, {
  3.753016333558827*^9, 3.753016527880453*^9}, {3.7530165638896866`*^9, 
  3.753016669400044*^9}, {3.7530171833369493`*^9, 3.753017239471326*^9}, {
  3.7530172801941147`*^9, 3.7530172841521673`*^9}, {3.7530173190737553`*^9, 
  3.7530173661183987`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"75150ba4-e343-43a4-863a-1869d92b8dc4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "CreateResourceFunctionGallery", "[", "resourceFunctions_List", "]"}], " ", 
  ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "rf", ",", "ro", ",", "name", ",", "co", ",", "thumb", ",", "desc", ",", 
      "gv"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"gv", "=", 
      RowBox[{"Map", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", "rf", "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ro", " ", "=", " ", 
            RowBox[{"ResourceObject", "[", "rf", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"name", " ", "=", " ", 
            RowBox[{"ro", "[", "\"\<Name\>\"", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"desc", " ", "=", " ", 
            RowBox[{"ro", "[", "\"\<Description\>\"", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Echo", "[", 
            RowBox[{"co", " ", "=", " ", 
             RowBox[{"CloudDeploy", "[", 
              RowBox[{"rf", ",", " ", 
               RowBox[{"CloudObject", "[", 
                RowBox[{"StringJoin", "[", 
                 RowBox[{
                 "\"\<https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/\>\"", ",", "name"}], "]"}], "]"}], ",", 
               RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], 
              "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"thumb", " ", "=", " ", 
            RowBox[{"CreateGalleryThumbnail", "[", 
             RowBox[{"name", ",", "desc"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Association", "[", 
            RowBox[{
             RowBox[{"\"\<Title\>\"", "\[Rule]", "name"}], ",", 
             RowBox[{"\"\<Content\>\"", "\[Rule]", 
              RowBox[{"Hyperlink", "[", 
               RowBox[{"thumb", ",", "co"}], "]"}]}], ",", 
             RowBox[{"\"\<Description\>\"", "\[Rule]", "desc"}]}], "]"}]}]}], 
         "]"}], ",", "\[IndentingNewLine]", "resourceFunctions"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"CloudDeploy", "[", 
      RowBox[{
       RowBox[{"GalleryView", "[", 
        RowBox[{"gv", ",", 
         RowBox[{"PageTheme", "\[Rule]", "\"\<Blue\>\""}], ",", 
         RowBox[{"AppearanceRules", " ", "\[Rule]", " ", 
          RowBox[{"<|", 
           RowBox[{
            RowBox[{
            "\"\<Title\>\"", " ", "\[Rule]", " ", 
             "\"\<Resource Functions\>\""}], ",", " ", 
            RowBox[{
            "\"\<Description\>\"", " ", "\[Rule]", " ", 
             "\"\<A collection of my favorite resource functions\>\""}]}], 
           "|>"}]}]}], "]"}], ",", 
       RowBox[{
       "CloudObject", "[", "\"\<resource-functions/gallery\>\"", "]"}], ",", 
       RowBox[{"Permissions", " ", "\[Rule]", " ", "\"\<Public\>\""}]}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7529526296863513`*^9, 3.7529527554341593`*^9}, {
   3.7529528852764645`*^9, 3.752952894154482*^9}, {3.752953001308725*^9, 
   3.752953044490834*^9}, {3.753016535401673*^9, 3.7530165397606945`*^9}, {
   3.7530354741716967`*^9, 3.753035514952793*^9}, {3.753036775180003*^9, 
   3.7530367761260047`*^9}, {3.757333461979704*^9, 3.7573334623907113`*^9}, 
   3.7573337569419003`*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"872a7336-34b6-4200-a7d4-f72e37154323"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CreateResourceFunctionGallery", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/BitFlip\>\"", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/RandomRomanNumeral\>\"", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/RandomWikipediaData\>\"", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/StringWrap\>\"", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/ImageColorReplace\>\"", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"ResourceFunction", "[", 
     RowBox[{
     "CloudObject", "[", 
      "\"\<https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/BirdSay\>\"", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.752950700149825*^9, 3.752950711099894*^9}, {
   3.7529507883431873`*^9, 3.7529507888321886`*^9}, {3.75295085082837*^9, 
   3.75295088445751*^9}, {3.7529514265051265`*^9, 3.7529514304701366`*^9}, {
   3.752951572784504*^9, 3.752951576028513*^9}, {3.752952803532302*^9, 
   3.752952808746313*^9}, {3.7530283670822783`*^9, 3.7530283675502768`*^9}, {
   3.7530302069884577`*^9, 3.7530302991177845`*^9}, {3.7530309494356747`*^9, 
   3.7530309562236886`*^9}, 3.7530313511605325`*^9, {3.7530313947806644`*^9, 
   3.7530314177047353`*^9}, {3.7530334610296135`*^9, 3.753033463205615*^9}, {
   3.7530354858987174`*^9, 3.753035487068712*^9}, {3.7530365837646213`*^9, 
   3.753036584271615*^9}, {3.7530390931516623`*^9, 3.7530391021729164`*^9}, {
   3.7570844303411255`*^9, 3.757084440079151*^9}, {3.757084473525276*^9, 
   3.7570844776712847`*^9}, {3.7570845098273826`*^9, 
   3.7570845290314255`*^9}, {3.757084562990656*^9, 3.757084570487691*^9}, {
   3.7570846130871716`*^9, 3.7570846218601923`*^9}, {3.75733344218661*^9, 
   3.757333447089634*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"964da730-326a-4790-b010-5f495fb57531"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/BitFlip\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
BitFlip"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
BitFlip"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.757333789139067*^9},ExpressionUUID->"ca836bb5-dc79-424f-bf1a-\
8a984aadbc9c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/RandomRomanNumeral\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
RandomRomanNumeral"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
RandomRomanNumeral"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.757333791217077*^9},ExpressionUUID->"96101877-d2f1-4d7c-94fe-\
df3c2c8b7a9f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/RandomWikipediaData\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
RandomWikipediaData"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
RandomWikipediaData"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.757333794013092*^9},ExpressionUUID->"d1ef364f-6b57-412d-a121-\
6184da571305"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/StringWrap\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
StringWrap"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
StringWrap"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.7573337954570937`*^9},ExpressionUUID->"c9dbbee3-9e4a-48ec-bed6-\
cba5c9e8bec9"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "ResourceObject","depnbcl",
   "\"The example notebook for this resource is no longer available and will \
not be included in the deployment. Recreate the resource to include the \
examples.\"",2,101,25,20428247832603955787,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.757333473666764*^9, 3.7573336501863613`*^9, 
  3.7573337960621014`*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"a62bc884-3f16-4e9c-82cc-69f3e24799e5"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/ImageColorReplace\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
ImageColorReplace"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
ImageColorReplace"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.757333796249102*^9},ExpressionUUID->"78b86a96-6c77-4a9a-9f42-\
ce40065ab952"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/DeployedResources/\
Function/BirdSay\"",
     "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
BirdSay"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/DeployedResources/Function/\
BirdSay"],
  SelectWithContents->True]], "Echo",
 CellChangeTimes->{
  3.757333801878129*^9},ExpressionUUID->"5de463cf-40b9-4efe-8262-\
50bbe7e61cbc"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"CloudObject", "[", 
   TemplateBox[{
    "\"https://www.wolframcloud.com/objects/arnoudb/resource-functions/\
gallery\"",
     "https://www.wolframcloud.com/objects/arnoudb/resource-functions/\
gallery"},
    "HyperlinkURL"], "]"}],
  CloudObject[
  "https://www.wolframcloud.com/objects/arnoudb/resource-functions/gallery"],
  SelectWithContents->True]], "Output",
 CellChangeTimes->{{3.75295213706903*^9, 3.752952144430044*^9}, 
   3.752952206815205*^9, {3.752952295321907*^9, 3.7529523056769276`*^9}, 
   3.752952446474679*^9, 3.7529525272046075`*^9, 3.7529527629081755`*^9, 
   3.752952932925559*^9, 3.75295303882682*^9, 3.7530165501137595`*^9, 
   3.753016583023699*^9, {3.7530166491729374`*^9, 3.75301667326606*^9}, 
   3.753017187743968*^9, {3.753017218792826*^9, 3.7530172428793373`*^9}, 
   3.753017288413538*^9, 3.753017369917416*^9, 3.7530283780752983`*^9, 
   3.753030240368577*^9, {3.7530302802387366`*^9, 3.7530303085968056`*^9}, 
   3.7530303624386597`*^9, 3.753030963988702*^9, 3.7530310528589325`*^9, 
   3.7530314324578104`*^9, 3.753033501751768*^9, 3.7530355016307745`*^9, 
   3.7530355339293575`*^9, 3.7530366034807444`*^9, 3.7530367942830334`*^9, 
   3.757084646905492*^9, 3.7573334784807816`*^9, 3.757333656502386*^9, 
   3.7573338020521307`*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"8ecc7b44-7343-4156-9a8e-3b448dc62c31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ResourceSearch", "[", "\"\<RandomRomanNumeral\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7530391110581675`*^9, 3.753039139152951*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"7526d525-25b7-4d7b-8e01-fad8e7c3cb14"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 1, "Length" -> 1, "InitialType" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Name", "ResourceType", "ResourceObject", "Description", 
            "DocumentationLink"}, {
            TypeSystem`Atom[String], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[ResourceObject], 
            TypeSystem`Atom[String], TypeSystem`AnyType}], 1], "Shape" -> 
        TypeSystem`PackageScope`HeaderShape[
          
          Association[{All, "Name"} -> 1, {All, "ResourceType"} -> 
           1, {All, "ResourceObject"} -> 1, {All, "Description"} -> 
           1, {All, "DocumentationLink"} -> 1], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`ColumnShape[
            TypeSystem`PackageScope`RowShape[
             Association[
             "Name" -> TypeSystem`PackageScope`AtomShape[172.8], 
              "ResourceType" -> 
              TypeSystem`PackageScope`AtomShape[76.80000000000001], 
              "ResourceObject" -> TypeSystem`PackageScope`AtomShape[60], 
              "Description" -> 
              TypeSystem`PackageScope`AtomShape[384.00000000000006`], 
              "DocumentationLink" -> TypeSystem`PackageScope`UnknownShape]]], 
           1, {}]], "InitialData" -> 
        TypeSystem`PackageScope`CacheHandle[1569497678], "Type" -> 
        TypeSystem`Vector[
          
          TypeSystem`Struct[{
           "Name", "ResourceType", "ResourceObject", "Description", 
            "DocumentationLink"}, {
            TypeSystem`Atom[String], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[ResourceObject], 
            TypeSystem`Atom[String], TypeSystem`AnyType}], 1], "HandleQ" -> 
        True, "RowTarget" -> 20, "Data" -> 
        TypeSystem`PackageScope`CacheHandle[1569497678]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Name\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Name\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    1945736459][{All, "Name"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[All, "Name"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ResourceType\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ResourceType\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    1945736459][{All, "ResourceType"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[All, "ResourceType"]], "Mouse"], 
                Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ResourceObject\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ResourceObject\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    1945736459][{All, "ResourceObject"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[All, "ResourceObject"]], "Mouse"], 
                Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Description\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Description\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    1945736459][{All, "Description"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[All, "Description"]], "Mouse"], 
                Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DocumentationLink\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"DocumentationLink\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    1945736459][{All, "DocumentationLink"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[All, "DocumentationLink"]], "Mouse"],
                 Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation["RandomRomanNumeral", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[1, 
                   Key["Name"]]], "Mouse"], 
                ImageSize -> {{172.8, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Function", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[1, 
                   Key["ResourceType"]]], "Mouse"], 
                ImageSize -> {{76.80000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  
                  TemplateBox[{
                   "\"ResourceObject\"", "\"[\"", "\"\\\"\"", 
                    "\"RandomRomanNumeral\"", "\"\\\"\"", "\"]\""}, 
                   "RowDefault"]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[1, 
                   Key["ResourceObject"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["Gives a randomly generated Roman numeral", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[1, 
                   Key["Description"]]], "Mouse"], 
                ImageSize -> {{384.00000000000006`, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "None", FontFamily -> "Source Code Pro", FontSize -> 13, 
                   ShowStringCharacters -> True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
                  GeneralUtilities`Slice[1, 
                   Key["DocumentationLink"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1945736459][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1945736459]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1945736459][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {1077., {30., 36.}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellChangeTimes->{3.753039140339982*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"aeabe554-a6dd-40bf-a78e-480fd8b31df0"]
}, Open  ]],

Cell[BoxData["Da"], "Input",
 CellChangeTimes->{{3.7573345442338142`*^9, 
  3.757334544375814*^9}},ExpressionUUID->"8e95406d-926b-4eff-9533-\
41dc13a8c098"]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (January 21, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2541, 65, 105, "Input",ExpressionUUID->"75150ba4-e343-43a4-863a-1869d92b8dc4"],
Cell[3102, 87, 3500, 78, 238, "Input",ExpressionUUID->"872a7336-34b6-4200-a7d4-f72e37154323"],
Cell[CellGroupData[{
Cell[6627, 169, 2637, 51, 162, "Input",ExpressionUUID->"964da730-326a-4790-b010-5f495fb57531"],
Cell[CellGroupData[{
Cell[9289, 224, 536, 15, 23, "Echo",ExpressionUUID->"ca836bb5-dc79-424f-bf1a-8a984aadbc9c"],
Cell[9828, 241, 569, 15, 23, "Echo",ExpressionUUID->"96101877-d2f1-4d7c-94fe-df3c2c8b7a9f"],
Cell[10400, 258, 572, 15, 23, "Echo",ExpressionUUID->"d1ef364f-6b57-412d-a121-6184da571305"],
Cell[10975, 275, 547, 15, 23, "Echo",ExpressionUUID->"c9dbbee3-9e4a-48ec-bed6-cba5c9e8bec9"]
}, Open  ]],
Cell[11537, 293, 504, 11, 21, "Message",ExpressionUUID->"a62bc884-3f16-4e9c-82cc-69f3e24799e5"],
Cell[CellGroupData[{
Cell[12066, 308, 566, 15, 23, "Echo",ExpressionUUID->"78b86a96-6c77-4a9a-9f42-ce40065ab952"],
Cell[12635, 325, 536, 15, 23, "Echo",ExpressionUUID->"5de463cf-40b9-4efe-8262-50bbe7e61cbc"]
}, Open  ]],
Cell[13186, 343, 1396, 26, 35, "Output",ExpressionUUID->"8ecc7b44-7343-4156-9a8e-3b448dc62c31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14619, 374, 243, 4, 28, "Input",ExpressionUUID->"7526d525-25b7-4d7b-8e01-fad8e7c3cb14"],
Cell[14865, 380, 19567, 378, 85, "Output",ExpressionUUID->"aeabe554-a6dd-40bf-a78e-480fd8b31df0"]
}, Open  ]],
Cell[34447, 761, 156, 3, 28, "Input",ExpressionUUID->"8e95406d-926b-4eff-9533-41dc13a8c098"]
}
]
*)

